home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_18.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  1.2 KB  |  39 lines
  1. on enterFrame
  2.   set ActiveStartspr to 3
  3.   set servicesReseaux to ActiveStartspr
  4.   set startBall to 4
  5.   set servicesReseauxBall to startBall + 5
  6.   set servicesprivesBall to startBall + 7
  7.   set servicesPublicsBall to startBall + 8
  8.   set startHighLightSpr to 13
  9.   set servicesPrives to startHighLightSpr
  10.   set servicesPublics to startHighLightSpr + 1
  11.   set startHotSpot to 15
  12.   set servicesPrivesHS to startHotSpot
  13.   set servicesPublicsHS to startHotSpot + 1
  14.   set ro to rollOver()
  15.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), servicesPrives, servicesPublics)
  16.   case ro of
  17.     servicesReseaux, servicesReseauxBall:
  18.       go(the frame)
  19.     servicesPrivesHS, servicesprivesBall:
  20.       puppetSprite(servicesPrives, 1)
  21.       set the member of sprite servicesPrives to member "servicesReseauxServicesPrives"
  22.       updateStage()
  23.       go(the frame)
  24.     servicesPublicsHS, servicesPublicsBall:
  25.       puppetSprite(servicesPublics, 1)
  26.       set the member of sprite servicesPublics to member "ServicesReseauxServicesPublics"
  27.       updateStage()
  28.       go(the frame)
  29.     otherwise:
  30.       depuppetize(servicesPrives, servicesPublics)
  31.       updateStage()
  32.       go("servicesReseauxClose")
  33.   end case
  34. end
  35.  
  36. on exitFrame
  37.   go(the frame)
  38. end
  39.